# (decoded with TMPL 13671)
/* %filename% */
/* Created %date% %time% by AppMaker */

%If MPW%
#include <Types.h>
#include <Quickdraw.h>
#include <Controls.h>
#include <Dialogs.h>
#include <Events.h>
#include <Lists.h>
#include <Menus.h>
#include <TextEdit.h>

%end if%
#include "Globals.h"
#include "ResourceDefs.h"
#include "Scrolling.h"
#include "WindowAids.h"
#include "Miscellany.h"

#include "%unitname%.h"

%If MPW%
#include <ToolUtils.h>

%end if%
#define nil			0L
%If MPW%

#pragma segment %unitname%
%end if% 

/*----------*/
void Open%WindName% (fName, vRefNum, fRefNum)
Str255		fName;
short		vRefNum;
short		fRefNum;
{
	WindowPtr		newWindow;
	Rect			bounds;

%if MPW%
#pragma unused (bounds) 
  
%end if%
	newWindow = GetNewWindow (%WindName%ID, nil, (WindowPtr) -1L);
	SetWTitle (newWindow, fName);
	SetPort (newWindow);
	SetNewInfo (newWindow);
	%MakeItems%
	cur->fileNum	= fRefNum;
	cur->volNum		= vRefNum;
	cur->dirty		= false;
	cur->filename	= NewString (fName);
	cur->windowKind = W%WindName%;
	ShowWindow (newWindow);
} /*Open%WindName%*/

/*----------*/
void Close%WindName% ()
{
	%DisposeItems%
	DisposHandle ((Handle) cur->filename);
	DiscardInfo (curWindow);
} /*Close%WindName%*/

/*----------*/
void MouseIn%WindName% (where, modifiers)
Point		where;
short		modifiers;
{
	Rect			bounds;

%if MPW%
#pragma unused (where, modifiers, bounds) 
  
%end if%
	%MouseInItems%
} /*MouseIn%WindName%*/

/*----------*/
void TypeIn%WindName%   (ch)
char		ch;
{
	if (cur->text == nil) {
		SysBeep (1);
	} else {
		TEKey (ch, cur->text);
	}
} /*TypeIn%WindName%*/

/*----------*/
void Update%WindName% ()
{
	Rect			bounds;

%if MPW%
#pragma unused (bounds) 
  
%end if%
	%UpdateItems%
} /*Update%WindName%*/

/*----------*/
void Activate%WindName% (activate)
Boolean		activate;
{
%if MPW%
#pragma unused (activate) 
  
%end if%
	%ActivateItems%
} /*Activate%WindName%*/

/*----------*/
void Resize%WindName% ()
{
	/* application-specific code to resize items in window */
} /*Resize%WindName%*/

/*----------*/
pascal void Scroll%WindName% (newValue, oldValue)
short		newValue;
short		oldValue;
{
%if MPW%
#pragma unused (newValue, oldValue) 
  
%end if%
	/* application-specific code to scroll window */
} /*Scroll%WindName%*/

/*----------*/
void Control%WindName%	(whichControl, whichPart, where)
ControlHandle	whichControl;
short	 		whichPart;
Point			where;
{
	Rect			bounds;

%if MPW%
#pragma unused (whichControl, whichPart, where, bounds) 
  
%end if%
	%ControlItems%
} /*Control%WindName%*/